home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
vol_400
/
403_01
/
mattran.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-21
|
1KB
|
46 lines
/*
*-----------------------------------------------------------------------------
* file: mattran.c
* desc: matrix mathematics
* by: ko shu pui, patrick
* date: v0.1 - 24 nov 91
* revi: v0.2 - 14 may 92
* ref:
* [1] Mary L.Boas, "Mathematical Methods in the Physical Sciene,"
* John Wiley & Sons, 2nd Ed., 1983. Chap 3.
*
*-----------------------------------------------------------------------------
*/
#include <stdio.h>
#include "matrix.h"
/*
*-----------------------------------------------------------------------------
* funct: mat_tran
* desct: transpose of a matrix
* given: A = matrix A to be transposed
* retrn: allocated matrix for A^t
* comen:
*-----------------------------------------------------------------------------
*/
MATRIX mat_tran( A )
MATRIX A;
{
int i, j;
MATRIX At;
if ((At = mat_creat( MatCol(A), MatRow(A), UNDEFINED )) == NULL)
return (NULL);
/*
* Transposing ...
*/
for (i=0; i<MatCol(A); i++)
for (j=0; j<MatRow(A); j++)
{
At[i][j] = A[j][i];
}
return (At);
}